1 POKE808,225
2 PRINTCHR$(8)
4 SYS65418:K=PEEK(45)+PEEK(46)*256:A=K-1086:P=K-1019:SYSA:T$(0)=",8":T$(1)=",8,1"
5 LN$="[192][192][192][192][192][192][192][192][192][192]":LN$=""+LN$+LN$+LN$+LN$:SP$="                   ":SP$=SP$+SP$
6 POKE53280,0:POKE53281,0:Y=1:R$(0)="":R$(1)="[146]":X(0)=2:X(1)=22
7 PRINT""
8 READN:N=N-1:DIMS(N),F$(N),T(N),E$(N),C$(N)
10 FORI=0TON:READS(I),F$(I),T(I),E$(I),C$(I):NEXT
12 PRINT"[147]";CHR$(9)CHR$(142)CHR$(8):Y=0:SYSP,14,0
14 SYSP,14,1
16 SYSP,14,2:MX=15:IFMX>(N-G)THENMX=N-G
18 SYSP,7,4:R=1:PRINT"[156]    AVALON VI 1995 "
19 PRINT""
22 FORY=0TOMX:GOSUB50:NEXT:Y=0:SYSP,5,22:PRINT"[158]USE CURSOR KEY TO MOVE CURSOR"
24 SYSP,15,18
26 SYSP,0,21:PRINTLN$
28 I=23:IFN>MXTHENI=24:SYSP,4,23:PRINT"[154]PRESS THE [N] KEY FOR NEXT PAGE"
30 SYSP,6,I:PRINT"PRESS [RETURN] TO LOAD FILE ":POKE198,0
32 R=(R+1)*-(R<1):GOSUB50:T=0
34 GETA$:T=T+1:IFA$=""ANDT<20THEN34
36 IFA$=""THENR=1:GOSUB50:Y=Y+1:GOSUB56:GOTO32
38 IFA$=""ANDY+8<MX+1THENR=1:GOSUB50:Y=Y+8:GOSUB56:GOTO32
40 IFA$="[145]"THENR=1:GOSUB50:Y=Y-1:GOSUB56:GOTO32
42 IFA$="[157]"ANDY-8=>0THENR=1:GOSUB50:Y=Y-8:GOSUB56:GOTO32
44 IFA$="N"THENG=(G+16)*-(G<=N-16):GOTO12
46 IFA$=CHR$(13)THEN62
48 GOTO32
50 RL=Y-(8*-(Y=>8)):SYSP,X(-(Y=>8)),RL+9:PRINTR$(R);LEFT$(F$(Y+G),16)
52 SYSP,1,20:A$=LEFT$(C$(Y+G),38):A=LEN(A$):B$=LEFT$(SP$,19-A/2)
54 PRINT"[146]";B$;A$;B$:RETURN
56 IFY>MXTHENY=0
58 IFY<0THENY=MX
60 RETURN
62 IFS(Y+G)THENSYS52256
64 PRINT"[147]LOAD";CHR$(34);F$(Y+G);CHR$(34);T$(T(Y+G)):PRINT"";E$(Y+G);CHR$(9);""
66 POKE631,13:POKE632,13:POKE198,2:END
68 :
70 :
98 REM 0=NO WARP/DRIVE   0= ",8"
100 DATA 17:REM NUMBER FILENAMES
103 DATA 0,"QUESTIONS*", 1,"RUN","WOULD YOU LIKE TO VISIT CASTLE AVALON?"
104 DATA 0,"PAPER TALK*", 1,"RUN","ARE WE ALL WASTING OUR TIME? "
105 DATA 0,"CHIPS WITH ALL*", 1,"RUN","GET YOUR TECHI-HEAD ON!"
106 DATA 0,"SECTOR 8*", 1,"RUN","YEAH! LET'S HAVE A BLAST FOR A BIT"
107 DATA 0,"MONOPOLY*", 1,"RUN","MAKE A MILLION WITH THIS ONE"
108 DATA 0,"PUTT PUTT GOLF*", 1,"RUN","HOLE IN ONE! SOUNDS LIKE MY SOCKS!"
109 DATA 0,"OCTANOTER*", 1,"RUN","THE NOTER WE WANT YOU TO USE"
110 DATA 0,"FAIR THEE WELL*", 1,"RUN","THEY COME AND THEY GO"
112 DATA 0,"INTERVIEW/XL*", 1,"RUN","XL REVEALS ALL!"
114 DATA 0,"ZINE '64*", 1,"RUN","ANOTHER PAPER ZINE 4U!"
115 DATA 0,"COMPUTER SCENE*", 1,"RUN","TRY THIS MEGA ZINE!"
120 DATA 0,"FORECASTER VII*", 1,"RUN","WANNA BE A WEATHER MAN? NOW YOU CAN"
130 DATA 0,"        ", 1,"RUN","                                       "
140 DATA 0,"RE-SET*", 1,"RUN","FINISHED FOR NOW? LOAD ME THEN"
150 DATA 0,"        ", 1,"RUN","                                      "
160 DATA 0,"        ", 1,"RUN","                                       "
170 DATA 0,"SORRY NO MORE!", 1,"RUN"," -> AVALON, MORE THAN JUST A LEGEND <-"
299 :